unit UMainApplication;

interface

uses
  CategoryButtons,
  Classes,
  ComCtrls,
  Controls,
  Dialogs,
  ExtCtrls,
  Forms,
  Graphics,
  Messages,
  NxColumnClasses,
  NxColumns,
  NxCustomGrid,
  NxCustomGridControl,
  NxGrid,
  NxScrollControl,
  StdCtrls,
  SysUtils,
  Variants,
  Windows;

type
  TForm_Main = class(TForm)
    CB010501: TCategoryButtons;
    Grid01050102010101: TNextGrid;
    Grid01050103010101: TNextGrid;
    Grid01050104010101: TNextGrid;
    Grid01050105010101: TNextGrid;
    Grid01050106010201: TNextGrid;
    Grid01050106011001: TNextGrid;
    Grid01050106011101: TNextGrid;
    Grid01050106011201: TNextGrid;
    Grid01050106011301: TNextGrid;
    Grid01050106011401: TNextGrid;
    IN0102A01: TLabeledEdit;
    IN0102A02: TLabeledEdit;
    IN0102B01: TLabeledEdit;
    IN0102B02: TLabeledEdit;
    IN0102B03: TLabeledEdit;
    IN0102B04: TComboBox;
    IN0102B05: TLabeledEdit;
    IN0102B06: TLabeledEdit;
    IN0102B07: TLabeledEdit;
    IN0102B08: TLabeledEdit;
    IN0102B09: TLabeledEdit;
    IN0102B10: TLabeledEdit;
    IN0102B11: TLabeledEdit;
    IN010301: TLabeledEdit;
    IN010302: TLabeledEdit;
    IN010303: TLabeledEdit;
    IN010304: TLabeledEdit;
    IN010401: TEdit;
    IN01050102010201: TLabeledEdit;
    IN01050102010202: TLabeledEdit;
    IN01050102010203: TLabeledEdit;
    IN01050102010204: TLabeledEdit;
    IN01050102010205: TLabeledEdit;
    IN01050102010206: TLabeledEdit;
    IN01050102010207: TLabeledEdit;
    IN01050102010208: TLabeledEdit;
    IN01050102010209: TLabeledEdit;
    IN01050102010210: TLabeledEdit;
    IN01050102010211: TLabeledEdit;
    IN01050103010201: TLabeledEdit;
    IN01050103010202: TLabeledEdit;
    IN01050103010203: TLabeledEdit;
    IN01050103010204: TLabeledEdit;
    IN01050103010205: TLabeledEdit;
    IN01050103010206: TLabeledEdit;
    IN01050103010207: TLabeledEdit;
    IN01050103010208: TLabeledEdit;
    IN01050103010209: TLabeledEdit;
    IN01050103010210: TLabeledEdit;
    IN01050103010211: TLabeledEdit;
    IN01050104010201: TLabeledEdit;
    IN01050104010202: TLabeledEdit;
    IN01050104010203: TLabeledEdit;
    IN01050104010204: TLabeledEdit;
    IN01050104010205: TLabeledEdit;
    IN01050104010206: TLabeledEdit;
    IN01050105010201: TLabeledEdit;
    IN01050105010202: TLabeledEdit;
    IN01050105010203: TLabeledEdit;
    IN01050105010204: TLabeledEdit;
    IN01050105010205: TLabeledEdit;
    IN01050105010206: TLabeledEdit;
    IN01050106010101: TComboBox;
    IN01050106010102: TComboBox;
    IN01050106010103: TComboBox;
    IN01050106010104: TDateTimePicker;
    IN01050106010105: TEdit;
    IN01050106010106: TEdit;
    IN01050106010107: TEdit;
    IN01050106010108: TEdit;
    IN01050106010201: TLabeledEdit;
    IN01050106010202: TLabeledEdit;
    IN01050106010203: TLabeledEdit;
    IN01050106010301: TComboBox;
    IN01050106010302: TComboBox;
    IN01050106010303: TComboBox;
    IN01050106010304: TComboBox;
    IN01050106010305: TDateTimePicker;
    IN01050106010306: TEdit;
    IN01050106010401: TComboBox;
    IN01050106010402: TDateTimePicker;
    IN01050106010403: TEdit;
    IN01050106010404: TEdit;
    IN01050106010501: TComboBox;
    IN01050106010502: TDateTimePicker;
    IN01050106010503: TEdit;
    IN01050106010504: TEdit;
    IN01050106010601: TComboBox;
    IN01050106010602: TDateTimePicker;
    IN01050106010603: TEdit;
    IN01050106010604: TEdit;
    IN01050106010701: TComboBox;
    IN01050106010702: TEdit;
    IN01050106010703: TComboBox;
    IN01050106010704: TEdit;
    IN01050106010705: TEdit;
    IN01050106010706: TEdit;
    IN01050106010707: TEdit;
    IN01050106010708: TEdit;
    IN01050106010709: TEdit;
    IN01050106010710: TEdit;
    IN01050106010711: TEdit;
    IN01050106010712: TEdit;
    IN01050106010713: TEdit;
    IN01050106010714: TEdit;
    IN01050106010801: TComboBox;
    IN01050106010802: TDateTimePicker;
    IN01050106010803: TEdit;
    IN01050106010804: TEdit;
    IN01050106010901: TComboBox;
    IN01050106010902: TDateTimePicker;
    IN01050106010903: TEdit;
    IN01050106010904: TEdit;
    K0105010201010101: TNxIncrementColumn;
    K0105010201010102: TNxNumberColumn;
    K0105010201010103: TNxTextColumn;
    K0105010201010104: TNxTextColumn;
    K0105010201010105: TNxTextColumn;
    K0105010201010106: TNxTextColumn;
    K0105010201010107: TNxNumberColumn;
    K0105010201010108: TNxNumberColumn;
    K0105010201010109: TNxNumberColumn;
    K0105010201010110: TNxTextColumn;
    K0105010201010111: TNxTextColumn;
    K0105010201010112: TNxTextColumn;
    K0105010201010113: TNxMemoColumn;
    K0105010301010101: TNxIncrementColumn;
    K0105010301010102: TNxNumberColumn;
    K0105010301010103: TNxTextColumn;
    K0105010301010104: TNxTextColumn;
    K0105010301010105: TNxTextColumn;
    K0105010301010106: TNxTextColumn;
    K0105010301010107: TNxTextColumn;
    K0105010301010108: TNxNumberColumn;
    K0105010301010109: TNxNumberColumn;
    K0105010301010110: TNxTextColumn;
    K0105010301010111: TNxTextColumn;
    K0105010301010112: TNxTextColumn;
    K0105010301010113: TNxMemoColumn;
    K0105010401010101: TNxIncrementColumn;
    K0105010401010102: TNxNumberColumn;
    K0105010401010103: TNxTextColumn;
    K0105010401010104: TNxTextColumn;
    K0105010401010105: TNxTextColumn;
    K0105010401010106: TNxTextColumn;
    K0105010401010107: TNxNumberColumn;
    K0105010401010108: TNxTextColumn;
    K0105010501010101: TNxIncrementColumn;
    K0105010501010102: TNxNumberColumn;
    K0105010501010103: TNxTextColumn;
    K0105010501010104: TNxTextColumn;
    K0105010501010105: TNxTextColumn;
    K0105010501010106: TNxNumberColumn;
    K0105010501010107: TNxTextColumn;
    K0105010501010108: TNxTextColumn;
    K0105010601020101: TNxIncrementColumn;
    K0105010601020102: TNxNumberColumn;
    K0105010601020103: TNxTextColumn;
    K0105010601020104: TNxTextColumn;
    K0105010601020105: TNxTextColumn;
    K0105010601100101: TNxIncrementColumn;
    K0105010601100102: TNxNumberColumn;
    K0105010601100103: TNxTextColumn;
    K0105010601100104: TNxTextColumn;
    K0105010601100105: TNxTextColumn;
    K0105010601100106: TNxDateColumn;
    K0105010601100107: TNxNumberColumn;
    K0105010601100108: TNxTextColumn;
    K0105010601110101: TNxIncrementColumn;
    K0105010601110102: TNxNumberColumn;
    K0105010601110103: TNxTextColumn;
    K0105010601110104: TNxTextColumn;
    K0105010601110105: TNxTextColumn;
    K0105010601110106: TNxDateColumn;
    K0105010601110107: TNxNumberColumn;
    K0105010601110108: TNxTextColumn;
    K0105010601120101: TNxIncrementColumn;
    K0105010601120102: TNxNumberColumn;
    K0105010601120103: TNxTextColumn;
    K0105010601120104: TNxTextColumn;
    K0105010601120105: TNxTextColumn;
    K0105010601120106: TNxDateColumn;
    K0105010601120107: TNxNumberColumn;
    K0105010601120108: TNxTextColumn;
    K0105010601130101: TNxIncrementColumn;
    K0105010601130102: TNxNumberColumn;
    K0105010601130103: TNxTextColumn;
    K0105010601130104: TNxTextColumn;
    K0105010601130105: TNxTextColumn;
    K0105010601130106: TNxTextColumn;
    K0105010601130107: TNxDateColumn;
    K0105010601130108: TNxNumberColumn;
    K0105010601130109: TNxTextColumn;
    K0105010601140101: TNxIncrementColumn;
    K0105010601140102: TNxNumberColumn;
    K0105010601140103: TNxTextColumn;
    K0105010601140104: TNxTextColumn;
    K0105010601140105: TNxTextColumn;
    K0105010601140106: TNxTextColumn;
    K0105010601140107: TNxDateColumn;
    K0105010601140108: TNxNumberColumn;
    K0105010601140109: TNxTextColumn;
    L010201: TLabel;
    L0105010201010101: TLabel;
    L0105010301010101: TLabel;
    L0105010401010101: TLabel;
    L0105010501010101: TLabel;
    L01050106010301: TLabel;
    L01050106010302: TLabel;
    L01050106010303: TLabel;
    L01050106010304: TLabel;
    L01050106010305: TLabel;
    L01050106010306: TLabel;
    L01050106010401: TLabel;
    L01050106010402: TLabel;
    L01050106010403: TLabel;
    L01050106010404: TLabel;
    L01050106010501: TLabel;
    L01050106010502: TLabel;
    L01050106010503: TLabel;
    L01050106010504: TLabel;
    L01050106010601: TLabel;
    L01050106010602: TLabel;
    L01050106010603: TLabel;
    L01050106010604: TLabel;
    L01050106010701: TLabel;
    L01050106010702: TLabel;
    L01050106010703: TLabel;
    L01050106010704: TLabel;
    L01050106010705: TLabel;
    L01050106010706: TLabel;
    L01050106010707: TLabel;
    L01050106010708: TLabel;
    L01050106010709: TLabel;
    L01050106010710: TLabel;
    L01050106010711: TLabel;
    L01050106010712: TLabel;
    L01050106010713: TLabel;
    L01050106010714: TLabel;
    L01050106010801: TLabel;
    L01050106010802: TLabel;
    L01050106010803: TLabel;
    L01050106010804: TLabel;
    L01050106010901: TLabel;
    L01050106010902: TLabel;
    L01050106010903: TLabel;
    L01050106010904: TLabel;
    L1050106010101: TLabel;
    L1050106010102: TLabel;
    L1050106010103: TLabel;
    L1050106010104: TLabel;
    L1050106010105: TLabel;
    L1050106010106: TLabel;
    L1050106010107: TLabel;
    L1050106010108: TLabel;
    LE01010101: TLabeledEdit;
    LE01010102: TLabeledEdit;
    LE01050101010101: TLabeledEdit;
    LE01050101010102: TLabeledEdit;
    LE01050101010103: TLabeledEdit;
    LE01050101010104: TLabeledEdit;
    LE01050101010105: TLabeledEdit;
    LE01050101010106: TLabeledEdit;
    LE01050101010107: TLabeledEdit;
    LE01050101010108: TLabeledEdit;
    LE01050101010109: TLabeledEdit;
    LE01050101010110: TLabeledEdit;
    LE01050101010111: TLabeledEdit;
    LE01050101010112: TLabeledEdit;
    Panel010101: TPanel;
    Panel010301: TPanel;
    Panel01050101010201: TPanel;
    Panel01050102010101: TPanel;
    Panel01050102010102: TPanel;
    Panel01050102010201: TPanel;
    Panel01050103010101: TPanel;
    Panel01050103010102: TPanel;
    Panel01050103010201: TPanel;
    Panel01050104010101: TPanel;
    Panel01050104010102: TPanel;
    Panel01050104010201: TPanel;
    Panel01050105010101: TPanel;
    Panel01050105010102: TPanel;
    Panel01050105010201: TPanel;
    Panel01050106010102: TPanel;
    Panel01050106010201: TPanel;
    Panel01050106010302: TPanel;
    Panel01050106010402: TPanel;
    Panel01050106010502: TPanel;
    Panel01050106010602: TPanel;
    Panel01050106010702: TPanel;
    Panel01050106010802: TPanel;
    Panel01050106010902: TPanel;
    Panel01050106011001: TPanel;
    Panel01050106011101: TPanel;
    Panel01050106011201: TPanel;
    Panel01050106011301: TPanel;
    Panel01050106011401: TPanel;
    PC01: TPageControl;
    PC010501: TPageControl;
    PC0105010101: TPageControl;
    PC0105010201: TPageControl;
    PC0105010301: TPageControl;
    PC0105010401: TPageControl;
    PC0105010501: TPageControl;
    PC0105010601: TPageControl;
    TAB0101: TTabSheet;
    TAB0102: TTabSheet;
    TAB0103: TTabSheet;
    TAB0104: TTabSheet;
    TAB0105: TTabSheet;
    TAB01050101: TTabSheet;
    TAB010501010101: TTabSheet;
    TAB010501010102: TTabSheet;
    TAB01050102: TTabSheet;
    TAB010501020101: TTabSheet;
    TAB010501020102: TTabSheet;
    TAB01050103: TTabSheet;
    TAB010501030101: TTabSheet;
    TAB010501030102: TTabSheet;
    TAB01050104: TTabSheet;
    TAB010501040101: TTabSheet;
    TAB010501040102: TTabSheet;
    TAB01050105: TTabSheet;
    TAB010501050101: TTabSheet;
    TAB010501050102: TTabSheet;
    TAB01050106: TTabSheet;
    TAB010501060101: TTabSheet;
    TAB010501060102: TTabSheet;
    TAB010501060103: TTabSheet;
    TAB010501060104: TTabSheet;
    TAB010501060105: TTabSheet;
    TAB010501060106: TTabSheet;
    TAB010501060107: TTabSheet;
    TAB010501060108: TTabSheet;
    TAB010501060109: TTabSheet;
    TAB010501060110: TTabSheet;
    TAB010501060111: TTabSheet;
    TAB010501060112: TTabSheet;
    TAB010501060113: TTabSheet;
    TAB010501060114: TTabSheet;
    TMB01010101: TButton;
    TMB01010102: TButton;
    TMB01010103: TButton;
    TMB010201: TButton;
    TMB010202: TButton;
    TMB01030101: TButton;
    TMB010401: TButton;
    TMB0105010201010201: TButton;
    TMB0105010201010202: TButton;
    TMB0105010201010203: TButton;
    TMB0105010201020101: TButton;
    TMB0105010301010201: TButton;
    TMB0105010301010202: TButton;
    TMB0105010301010203: TButton;
    TMB0105010301020101: TButton;
    TMB0105010401010201: TButton;
    TMB0105010401010202: TButton;
    TMB0105010401010203: TButton;
    TMB0105010401020101: TButton;
    TMB0105010501010201: TButton;
    TMB0105010501010202: TButton;
    TMB0105010501010203: TButton;
    TMB0105010501020101: TButton;
    TMB01050106010101: TButton;
    TMB0105010601010201: TButton;
    TMB0105010601010202: TButton;
    TMB0105010601010203: TButton;
    TMB0105010601020101: TButton;
    TMB0105010601020102: TButton;
    TMB0105010601020103: TButton;
    TMB0105010601020104: TButton;
    TMB01050106010301: TButton;
    TMB0105010601030201: TButton;
    TMB0105010601030202: TButton;
    TMB0105010601030203: TButton;
    TMB01050106010401: TButton;
    TMB0105010601040201: TButton;
    TMB0105010601040202: TButton;
    TMB0105010601040203: TButton;
    TMB01050106010501: TButton;
    TMB0105010601050201: TButton;
    TMB0105010601050202: TButton;
    TMB0105010601050203: TButton;
    TMB01050106010601: TButton;
    TMB0105010601060201: TButton;
    TMB0105010601060202: TButton;
    TMB0105010601060203: TButton;
    TMB01050106010701: TButton;
    TMB0105010601070201: TButton;
    TMB0105010601070202: TButton;
    TMB0105010601070203: TButton;
    TMB0105010601080201: TButton;
    TMB0105010601080202: TButton;
    TMB0105010601080203: TButton;
    TMB0105010601090201: TButton;
    TMB0105010601090202: TButton;
    TMB0105010601090203: TButton;
    TMB0105010601100101: TButton;
    TMB0105010601100102: TButton;
    TMB0105010601100103: TButton;
    TMB0105010601100104: TButton;
    TMB0105010601110101: TButton;
    TMB0105010601110102: TButton;
    TMB0105010601110103: TButton;
    TMB0105010601110104: TButton;
    TMB0105010601120101: TButton;
    TMB0105010601120102: TButton;
    TMB0105010601120103: TButton;
    TMB0105010601120104: TButton;
    TMB0105010601130101: TButton;
    TMB0105010601130102: TButton;
    TMB0105010601130103: TButton;
    TMB0105010601130104: TButton;
    TMB0105010601140101: TButton;
    TMB0105010601140102: TButton;
    TMB0105010601140103: TButton;
    TMB0105010601140104: TButton;
    procedure CategoryButtons1Categories0Items0Click(Sender: TObject);
    procedure CategoryButtons1Categories0Items1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TMB01010103Click(Sender: TObject);
  private
  public
    procedure AfterConstruction; override;
  end;

var
  Form_Main: TForm_Main;

implementation

uses
  UModule_Absensi,
  UModule_Entry_Jurnal_Penerimaan,
  UModule_Entry_Jurnal_Pengeluaran,
  UModule_Entry_Mapel_Soal,
  UModule_Entry_Siswa_Absensi,
  UModule_Entry_Siswa_BeaSiswa,
  UModule_Entry_Siswa_Nilai,
  UModule_Entry_Siswa_SPP,
  UModule_Entry_Siswa_UangPembangunan,
  UModule_Guru,
  UModule_Laporan_Keuangan,
  UModule_Mapel,
  UModule_Profile,
  UModule_Register,
  UModule_Ruang,
  UModule_Siswa,
  UUser;
{$R *.dfm}

{ TForm_Main }
procedure TForm_Main.AfterConstruction;
begin
inherited;
try
  with TAB0101 do
    begin
    Show;
    end;
except
  on E: Exception do
    begin
    ShowMessage(E.Message);
    end;
end;
end;

procedure TForm_Main.CategoryButtons1Categories0Items0Click(Sender: TObject);
begin
try
  with TAB010501010101 do
    begin
    Show;
    end;
except
  on E: Exception do
    begin
    ShowMessage(E.Message);
    end;
end;
end;

procedure TForm_Main.CategoryButtons1Categories0Items1Click(Sender: TObject);
begin
try
  with TAB010501010102 do
    begin
    Show;
    end;
except
  on E: Exception do
    begin
    ShowMessage(E.Message);
    end;
end;
end;

procedure TForm_Main.FormShow(Sender: TObject);
begin
try
  Module_Absensi.Assign_Action;
  Module_Entry_Siswa_Absensi.Assign_Action;
  Module_Entry_Siswa_Nilai.Assign_Action;
  Module_Entry_Siswa_SPP.Assign_Action;
  Module_Entry_Siswa_UangPembangunan.Assign_Action;
  Module_Entry_Siswa_BeaSiswa.Assign_Action;
  Module_Guru.Assign_Action;
  Module_Mapel.Assign_Action;
  Module_Register.Assign_Action;
  Module_Ruang.Assign_Action;
  Module_Siswa.Assign_Action;
  Module_Entry_Mapel_Soal.Assign_Action;
  Module_Entry_Jurnal_Penerimaan.Assign_Action;
  Module_Entry_Jurnal_Pengeluaran.Assign_Action;
  Module_Laporan_Keuangan.Assign_Action;
  Module_Profile.Assign_Action;
except
  on E: Exception do
    begin
    ShowMessage(E.Message);
    end;
end;
end;

procedure TForm_Main.TMB01010103Click(Sender: TObject);
begin
try
  with TAB0103 do
    begin
    Show;
    end;
except
  on E: Exception do
    begin
    ShowMessage(E.Message);
    end;
end;
end;

end.
